home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue66 / Construc / DrBob42_i.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-12-29  |  3.8 KB  |  124 lines
  1. unit DrBob42_i;
  2.  
  3. {This file was generated on 29 Dec 2000 10:39:41 GMT by version 03.03.03.C1.06}
  4. {of the Inprise VisiBroker idl2pas CORBA IDL compiler.                        }
  5.  
  6. {Please do not edit the contents of this file. You should instead edit and    }
  7. {recompile the original IDL which was located in the file                     }
  8. {C:\DrBob42\Drbob42.idl.                                                      }
  9.  
  10. {Delphi Pascal unit      : DrBob42_i                                          }
  11. {derived from IDL module : DrBob42                                            }
  12.  
  13.  
  14.  
  15. interface
  16.  
  17. uses
  18.   CORBA;
  19.  
  20. type
  21.  
  22.   EnumType = (first, second, third  );
  23.  
  24. const
  25.   { (Do not edit the values assigned to these constants.) }
  26.  
  27.   ArraySize : Cardinal = 3;
  28.  
  29. type
  30.   Rates = interface;
  31.   Account = interface;
  32.   AccountError = interface;
  33.   MyAccount = interface;
  34.   StructType = interface;
  35.   UnionType = interface;
  36.   ADT = interface;
  37.   SeqAccount = interface;
  38.  
  39.   Identifier = AnsiString;
  40.  
  41.   StructArray = array[0..2] of DrBob42_i.StructType;
  42.  
  43.   StructSequence = array of DrBob42_i.StructType;
  44.  
  45.   IntSeq = array[0..4] of Cardinal;
  46.  
  47.   Rates = interface
  48.     ['{29A564AE-17F3-769F-3743-626DBEE2D66A}']
  49.     function  interest_rate : Single;
  50.   end;
  51.  
  52.   Account = interface
  53.     ['{F8DD5571-25E0-6CBC-36EA-A2E4024B1ECB}']
  54.     function  balance : Single;
  55.     function  get_rates (const myRates : DrBob42_i.Rates): Single;
  56.   end;
  57.  
  58.   AccountError = interface
  59.     ['{60CFD7EA-C715-4A34-6496-E7CC647E134F}']
  60.     function  _get_Balance : Single;
  61.     procedure _set_Balance (const Balance : Single);
  62.     function  _get_ErrorMessage : AnsiString;
  63.     procedure _set_ErrorMessage (const ErrorMessage : AnsiString);
  64.     property  Balance : Single read _get_Balance write _set_Balance;
  65.     property  ErrorMessage : AnsiString read _get_ErrorMessage write _set_ErrorMessage;
  66.   end;
  67.  
  68.   MyAccount = interface (DrBob42_i.Account)
  69.     ['{E07192A4-8A84-6C9F-D2F6-3298EF4F3539}']
  70.     procedure deposit (const amount : Single);
  71.     procedure withdraw (const amount : Single);
  72.   end;
  73.  
  74.   StructType = interface
  75.     ['{A6D7A9CF-E0A2-CB75-CDE1-C964F5963B51}']
  76.     function  _get_s : SmallInt;
  77.     procedure _set_s (const s : SmallInt);
  78.     function  _get_l : Integer;
  79.     procedure _set_l (const l : Integer);
  80.     function  _get_i : DrBob42_i.Identifier;
  81.     procedure _set_i (const i : DrBob42_i.Identifier);
  82.     property  s : SmallInt read _get_s write _set_s;
  83.     property  l : Integer read _get_l write _set_l;
  84.     property  i : DrBob42_i.Identifier read _get_i write _set_i;
  85.   end;
  86.  
  87.   UnionType = interface
  88.     ['{37F48197-0F3A-7910-7CA2-05715E8C6994}']
  89.     function  _get_s : SmallInt;
  90.     procedure _set_s (const s : SmallInt);
  91.     function  _get_l : Integer;
  92.     procedure _set_l (const l : Integer);
  93.     function  _get_i : DrBob42_i.Identifier;
  94.     procedure _set_i (const i : DrBob42_i.Identifier);
  95.     function  _get_discriminator : Integer;
  96.     property  s : SmallInt read _get_s write _set_s;
  97.     property  l : Integer read _get_l write _set_l;
  98.     property  i : DrBob42_i.Identifier read _get_i write _set_i;
  99.     property  _discriminator : Integer read _get_discriminator;
  100.   end;
  101.  
  102.   ADT = interface
  103.     ['{A5D46B2E-304A-ED53-2FA0-230176E87B99}']
  104.     procedure test (const one : DrBob42_i.Identifier;
  105.                     const two : DrBob42_i.EnumType;
  106.                     const three : DrBob42_i.StructType;
  107.                     const four : DrBob42_i.UnionType;
  108.                     const five : DrBob42_i.StructArray;
  109.                     const six : DrBob42_i.StructSequence);
  110.   end;
  111.  
  112.   SeqAccount = interface
  113.     ['{53575FC9-A6D4-285D-0ED2-7A40E3CC68F0}']
  114.     function  balance (const mySeq : DrBob42_i.IntSeq): Single;
  115.   end;
  116.  
  117.  
  118. implementation
  119.  
  120.  
  121. initialization
  122.  
  123.  
  124. end.